home *** CD-ROM | disk | FTP | other *** search
/ Tabloid Beauties (Italian) / Saranno famos.iso / DATA / ANGELA.DIR / 00104_Script_104 < prev    next >
Text File  |  1995-03-07  |  1KB  |  52 lines
  1. on exitFrame
  2.   global WhichCallAngela
  3.   
  4.   if WhichCallAngela < 4 then
  5.     set WhichCallAngela to WhichCallAngela + 1
  6.   end if
  7.   
  8.   if WhichCallAngela = 1 then
  9.     cursor 4
  10.     put the pathname into temp
  11.     if the machinetype <> 256 then
  12.       put Temp & "SOUNDS:082.mov" into Fname
  13.     else
  14.       put Temp & "SOUNDS\082.mov" into Fname
  15.     end if
  16.     set the filename of cast "QT.MOV" to FName
  17.   end if
  18.   
  19.   if WhichCallAngela = 2 then
  20.     cursor 4
  21.     put the pathname into temp
  22.     if the machinetype <> 256 then
  23.       put Temp & "SOUNDS:083.mov" into Fname
  24.     else
  25.       put Temp & "SOUNDS\083.mov" into Fname
  26.     end if
  27.     set the filename of cast "QT.MOV" to FName
  28.   end if
  29.   
  30.   if WhichCallAngela = 3 then
  31.     cursor 4
  32.     put the pathname into temp
  33.     if the machinetype <> 256 then
  34.       put Temp & "SOUNDS:085.mov" into Fname
  35.     else
  36.       put Temp & "SOUNDS\085.mov" into Fname
  37.     end if
  38.     set the filename of cast "QT.MOV" to FName
  39.     
  40.   end if
  41.   
  42.   if WhichCallAngela = 4 then
  43.     cursor 4
  44.     put the pathname into temp
  45.     if the machinetype <> 256 then
  46.       put Temp & "SOUNDS:115.mov" into Fname
  47.     else
  48.       put Temp & "SOUNDS\115.mov" into Fname
  49.     end if
  50.     set the filename of cast "QT.MOV" to FName
  51.   end if
  52. end